* lisp/gnus/nnmail.el (nnmail-crosspost-link-function): Simplify.

diff --git a/lisp/gnus/nnmail.el b/lisp/gnus/nnmail.el
index 3f2e08171e08ae6fef4d1efec36e98b26b271001..71d9631776d81c87621d52d6f1a13f25250d2bc8 100644 (file)
--- a/lisp/gnus/nnmail.el
+++ b/lisp/gnus/nnmail.el
@@ -263,7 +263,7 @@ It scans low-level sorted spools even when not required."
   :type 'function)
 
 (defcustom nnmail-crosspost-link-function
-  (if (string-match "windows-nt" (symbol-name system-type))
+  (if (eq 'windows-nt system-type)
       'copy-file
     'add-name-to-file)
   "Function called to create a copy of a file.